function ret = almacen(Tc, Tv)
	ret = @(x, y) (Tc-Tv)*y;
end

